(LAP EXIT SUBR)
(47000 0 12)
NIL

(SETQ QT	(QUOTE /' ))
(SETQ LPAR	(QUOTE /( ))
(SETQ RPAR	(QUOTE /) ))
(SETQ LABR	(QUOTE /< ))
(SETQ RABR	(QUOTE /> ))
(SETQ LSBR	(QUOTE /[ ))
(SETQ RSBR	(QUOTE /] ))
(SETQ DASH	(QUOTE /- ))
(SETQ STAR	(QUOTE /* ))
(SETQ PLUSS	(QUOTE /+ ))
(SETQ SLASH	(QUOTE // ))
(SETQ BLANK	(QUOTE /  ))
(SETQ COLON	(QUOTE /: ))
(SETQ COMMA	(QUOTE /, ))
(SETQ PERIOD	(QUOTE /. ))
(SETQ DOLLAR	(QUOTE /$ ))
(SETQ EQSIGN	(QUOTE /= ))
(SETQ LARROW	(QUOTE /← ))
(SETQ DBQUOTE	(QUOTE /" ))
(SETQ PERCENT	(QUOTE /% ))
(SETQ CIRCLEX	(QUOTE /⊗ ))
(SETQ UNDERBAR	(QUOTE /_ ))
(SETQ SEMICOLON	(QUOTE /; ))

(SETQ TAB	(INTERN (ASCII 11)))
(SETQ LF	(INTERN (ASCII 12)))
(SETQ VT	(INTERN (ASCII 13)))
(SETQ FF	(INTERN (ASCII 14)))
(SETQ CR	(INTERN (ASCII 15)))
(SETQ ALTMODE	(INTERN (ASCII 175)))

(SETQ TRUE T)
(SETQ FALSE (SETQ F NIL))
(SETQ BASE (SETQ IBASE 10.))
(PROG (&UNBOUND&))
(SETQ *NOPOINT T)
(NOUUO NIL)